home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / jobs20.zip / JOBADD.PRG < prev    next >
Text File  |  1993-06-01  |  25KB  |  950 lines
  1. ***************************************************************************
  2. *:
  3. *:      Program: JOBADD.PRG
  4. *:
  5. *:       System: Job Search - Version 2.0
  6. *:       Author: R. J. Kovach
  7. *:
  8. *:*************************************************************************
  9. *:       Copyright (C) 1993, R.J. Kovach & Assoc.    ALL RIGHTS RESERVED
  10. *:*************************************************************************
  11. *:
  12. *:Procs & Fncts: NEWRECORD      Append new record
  13. *:             : COMPCLEAR      Clear company database memory variables
  14. *:             : COADD          Add new company record
  15. *:             : COMPADD        Screen format for new company record
  16. *:             : NETCLEAR       Clear network database memory variables
  17. *:             : NTADD          Add new network record
  18. *:             : NETADD         Screen format for new network record
  19. *:             : EXECCLEAR      Clear execsrch or tempsrch database memory var
  20. *:             : EXADD          Add new execsrch or tempsrch records
  21. *:             : EXECADD        Screen format for new execsrch or tempsrch record
  22. *:             : JOBCLEAR       Clear the jobexpen database memory variables
  23. *:             : JOBADD         Add new jobexpen record
  24. *:             : JOBADD         Screen format for new jobexpen record
  25. *:             : MEMOADD        Add a memo to a new record
  26. *:             : DUPLICATE      Create duplicate record
  27. *:             : DUPLIC         Duplicate record screen
  28. *:             : STOPRET        Returns to previous menu after pressing Esc
  29. *:
  30. *:      Formats:
  31. *:
  32. *:      Filters:
  33. *:             :
  34. *:         Uses: COMPANY.DBF
  35. *:             : NETWORK.DBF
  36. *:             : EXECSRCH.DBF
  37. *:             : TEMPSRCH.DBF
  38. *:             : JOBEXPEN.DBF
  39. *:
  40. *:   Memo files: COMPANY.DBT
  41. *:             : NETWORK.DBT
  42. *:             : EXECSRCH.DBT
  43. *:             : TEMPSRCH.DBT
  44. *:
  45. *:      Indexes: DIVISION.NDX
  46. *:             : NETWORK.NDX
  47. *:             : EXECNAME.NDX
  48. *:             : TEMPNAME.NDX
  49. *:             : JOBEXPEN.NDX
  50. *:             : SICNO.NDX
  51. *:
  52. *:       Set by: JOBS.PRG
  53. *:
  54. *: Documented: 4/23/93
  55. *: Revised:    6/01/93
  56. *:*************************************************************************
  57.  
  58.  
  59. *******************
  60. PROCEDURE newrecord
  61. *******************
  62.  
  63. STORE " " TO enter
  64. CLEAR GETS
  65. CLEAR
  66. IF type = 'C'
  67.    SELECT 1
  68.    USE company
  69.    GO BOTTOM
  70.    SKIP -4
  71.    ?
  72.    ? 'Most recent records. . . .'
  73.    ?
  74.    DISPLAY OFF NEXT 5 division, company, code1
  75.    ?
  76. ENDIF
  77. IF type = 'N'
  78.    SELECT 2
  79.    USE network
  80.    GO BOTTOM
  81.    SKIP -4
  82.    ?
  83.    ? 'Most recent records. . . .'
  84.    ?
  85.    DISPLAY OFF NEXT 5 first, last, phone
  86.    ?
  87. ENDIF
  88. IF type = 'E'
  89.    SELECT 3
  90.    USE execsrch
  91.    GO BOTTOM
  92.    SKIP -4
  93.    ?
  94.    ? 'Most recent records. . . .'
  95.    ?
  96.    DISPLAY OFF NEXT 5 name, contfirst, contlast
  97.    ?
  98. ENDIF
  99. IF type = 'T'
  100.    SELECT 4
  101.    USE tempsrch
  102.    GO BOTTOM
  103.    SKIP -4
  104.    ?
  105.    ? 'Most recent records. . . .'
  106.    ?
  107.    DISPLAY OFF NEXT 5 name, contfirst, contlast
  108.    ?
  109. ENDIF
  110. IF type = 'J'
  111.    SELECT 5
  112.    USE jobexpen
  113.    GO BOTTOM
  114.    SKIP -4
  115.    ?
  116.    ? 'Most recent records. . . .'
  117.    ?
  118.    DISPLAY OFF NEXT 5 date, type, amount, miles, descript
  119.    ?
  120. ENDIF
  121.  
  122. @24,10 SAY '        Do you want to enter new records? (Y/N) ' GET enter
  123. READ
  124. IF UPPER(enter)<> 'Y'
  125.    RETURN
  126. ENDIF
  127. IF type = 'C'
  128.    DO compclear
  129.    DO coadd
  130.    RETURN
  131. ENDIF
  132. IF type = 'N'
  133.    DO netclear
  134.    DO ntadd
  135.    RETURN
  136. ENDIF
  137. IF type = 'E'
  138.    DO execclear
  139.    DO exadd
  140.    RETURN
  141. ENDIF
  142. IF type = 'T'
  143.    DO execclear
  144.    DO exadd
  145.    RETURN
  146. ELSE
  147.    DO jobclear
  148.    DO jbadd
  149.    RETURN
  150. ENDIF
  151.  
  152.  
  153. *******************
  154. PROCEDURE compclear
  155. *******************
  156.  
  157. PUBLIC mans, mdivision, mcompany, maddress, mcity, mstate, mzip, mphone, msales
  158. PUBLIC memploy, msqft, macres, mestab, mduns, mcode1, mcode2, mcode3, mcode4
  159. PUBLIC mproduct, mtarget, mmrms, mcontfst, mcontlst, msrjr, mtitle, minitcont
  160. PUBLIC mfollow1, mfollow2, mfollow3, msource, mdirmail, mstatus
  161. CLEAR
  162. SELECT 1
  163. STORE ' ' TO mans
  164. USE company INDEX division
  165. STORE SPACE(25) TO mdivision
  166. STORE SPACE(25) TO mcompany
  167. STORE SPACE(25) TO maddress
  168. STORE SPACE(20) TO mcity
  169. STORE SPACE(2)  TO mstate
  170. STORE SPACE(10) TO mzip
  171. STORE SPACE(10) TO mphone
  172. STORE 0.0 TO msales
  173. STORE 0 TO memploy
  174. STORE 0 TO msqft
  175. STORE 0 TO macres
  176. STORE SPACE(4)  TO mestab
  177. STORE SPACE(9)  TO mduns
  178. STORE SPACE(4)  TO mcode1
  179. STORE SPACE(4)  TO mcode2
  180. STORE SPACE(4)  TO mcode3
  181. STORE SPACE(4)  TO mcode4
  182. STORE SPACE(65) TO mproduct
  183. STORE SPACE(1)  TO mtarget
  184. STORE "Mr."     TO mmrms
  185. STORE SPACE(14) TO mcontfst
  186. STORE SPACE(14) TO mcontlst
  187. STORE SPACE(3)  TO msrjr
  188. STORE SPACE(20) TO mtitle
  189. STORE '  /  /  ' TO minitcont
  190. STORE '  /  /  ' TO mfollow1
  191. STORE '  /  /  ' TO mfollow2
  192. STORE '  /  /  ' TO mfollow3
  193. STORE SPACE(25) TO msource
  194. STORE SPACE(1)  TO mdirmail
  195. STORE SPACE(28) TO mstatus
  196. RETURN
  197.  
  198.  
  199. ***************
  200. PROCEDURE coadd
  201. ***************
  202.  
  203. DO WHILE .T.
  204.    DO compadd
  205.    READ
  206.    STORE 'S' to mans
  207.    @24,15 SAY 'Save New Company ? (Save/Edit again/Cancel) 'GET mans PICTURE '!'
  208.    READ SAVE
  209.    DO WHILE .NOT. mans $ 'SEC'
  210.       ?? CHR(7)
  211.       READ SAVE
  212.    ENDDO
  213.    @24,0
  214.    CLEAR GETS
  215.    IF mans = 'E'
  216.       CLEAR
  217.       LOOP
  218.    ENDIF
  219.    IF mans = 'C'
  220.       CLEAR
  221.       RETURN
  222.    ELSE
  223.       @24,0
  224.       @24,20 SAY '*****  Updating Company File  *****'
  225.       APPEND BLANK
  226.       REPLACE division WITH mdivision, company WITH mcompany, address WITH maddress
  227.       REPLACE city WITH mcity, state WITH mstate, zip WITH mzip
  228.       REPLACE phone WITH mphone, sales WITH msales, employees WITH memploy
  229.       REPLACE sq_ft WITH msqft, acres WITH macres, establish WITH mestab
  230.       REPLACE duns WITH mduns, code1 WITH mcode1, code2 WITH mcode2
  231.       REPLACE code3 WITH mcode3, code4 WITH mcode4, product WITH mproduct
  232.       REPLACE mr_ms WITH mmrms, contfirst WITH mcontfst, contlast WITH mcontlst
  233.       REPLACE sr_jr WITH msrjr, title WITH mtitle, init_cont WITH CTOD(minitcont)
  234.       REPLACE followup1 WITH CTOD(mfollow1), followup2 WITH CTOD(mfollow2), followup3 WITH CTOD(mfollow3)
  235.       REPLACE source WITH msource, dir_mail WITH mdirmail, status WITH mstatus
  236.       DO memoadd
  237.       STORE 'Y' to mans
  238.       @24,0
  239.       @24,23 SAY 'Enter another record ? (Y/N) ' GET mans PICTURE '!'
  240.       READ SAVE
  241.       DO WHILE .NOT. mans $ 'YN'
  242.          ?? CHR(7)
  243.          READ SAVE
  244.       ENDDO
  245.       @24,0
  246.       CLEAR GETS
  247.       IF mans = 'Y'
  248.          CLEAR
  249.          DO compclear
  250.          LOOP
  251.       ELSE
  252.          RETURN
  253.       ENDIF
  254.    ENDIF
  255. ENDDO
  256.  
  257.  
  258. *****************
  259. PROCEDURE compadd
  260. *****************
  261.  
  262. @ 1,1 TO 23,78 DOUBLE
  263. @  2,32 SAY "Company Prospect"
  264. @  4,4  SAY "Division"
  265. @  4,14 GET mdivision PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXX"
  266. @  4,43 SAY "Company"
  267. @  4,52 GET mcompany PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXX"
  268. @  5,4  SAY "Address"
  269. @  5,14 GET maddress PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  270. @  6,4  SAY "City"
  271. @  6,14 GET mcity PICTURE "!XXXXXXXXXXXXXXXXXXX"
  272. @  6,40 SAY "State"
  273. @  6,47 GET mstate PICTURE "!!"
  274. @  6,52 SAY "Zip"
  275. @  6,57 GET mzip PICTURE "XXXXXXXXXX"
  276. @  8,4  SAY "Phone"
  277. @  8,14 GET mphone PICTURE "@R (999)999-9999"
  278. @  8,29 SAY "Division Sales"
  279. @  8,44 GET msales PICTURE "99999.9"
  280. @  8,51 SAY "million"
  281. @  8,61 SAY "Employees"
  282. @  8,71 GET memploy PICTURE "999999"
  283. @ 10,4  SAY "Sq ft"
  284. @ 10,13 GET msqft PICTURE "999,999"
  285. @ 10,23 SAY "Acres"
  286. @ 10,29 GET macres PICTURE "999"
  287. @ 10,35 SAY "Year Established"
  288. @ 10,52 GET mestab PICTURE "9999"
  289. @ 10,59 SAY "DUNS #"
  290. @ 10,66 GET mduns PICTURE "@R 99-999-9999"
  291. @ 12,4  SAY "SIC Code1"
  292. @ 12,15 GET mcode1 PICTURE "9999"
  293. @ 12,22 SAY "SIC Code2"
  294. @ 12,33 GET mcode2 PICTURE "9999"
  295. @ 12,40 SAY "SIC Code3"
  296. @ 12,51 GET mcode3 PICTURE "9999"
  297. @ 12,58 SAY "SIC Code4"
  298. @ 12,69 GET mcode4 PICTURE "9999"
  299. @ 14,4  SAY "Product"
  300. @ 14,12 GET mproduct PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  301. @ 15,14 SAY "Mr/Ms"
  302. @ 15,20 SAY "First"
  303. @ 15,36 SAY "Last"
  304. @ 15,51 SAY "Sr/Jr"
  305. @ 15,58 SAY "Title"
  306. @ 16, 4 SAY "Contact"
  307. @ 16,15 GET  mmrms PICTURE "!XX"
  308. @ 16,20 GET  mcontfst PICTURE "!XXXXXXXXXXXXX"
  309. @ 16,36 GET  mcontlst  PICTURE "!XXXXXXXXXXXXX"
  310. @ 16,52 GET  msrjr PICTURE "!XX"
  311. @ 16,57 GET  mtitle PICTURE "!XXXXXXXXXXXXXXXXXXX"
  312. @ 18,4  SAY "Init Cont"
  313. @ 18,14 GET minitcont PICTURE '99/99/99'
  314. @ 18,24 SAY "F-up-1"
  315. @ 18,31 GET mfollow1  PICTURE '99/99/99'
  316. @ 18,41 SAY "F-up-2"
  317. @ 18,48 GET mfollow2  PICTURE '99/99/99'
  318. @ 18,58 SAY "F-up-3"
  319. @ 18,65 GET mfollow3  PICTURE '99/99/99'
  320. @ 20,4  SAY "Info Source"
  321. @ 20,16 GET msource PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  322. @ 20,43 SAY "Target Firm"
  323. @ 20,56 GET mtarget PICTURE "!"
  324. @ 22,4  SAY "Direct Mail"
  325. @ 22,16 GET mdirmail PICTURE "!"
  326. @ 22,24 SAY "Status"
  327. @ 22,32 GET mstatus PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  328. RETURN
  329.  
  330.  
  331. ******************
  332. PROCEDURE netclear
  333. ******************
  334.  
  335. PUBLIC mans, mfirst, mlast, mtitle, mcompany, maddress, mcity, mstate
  336. PUBLIC mzip, mphone, mpriority, mrefer, minitcont, mfollow1, mfollow2, msituatn
  337. CLEAR
  338. SELECT 2
  339. STORE ' ' TO mans
  340. USE network INDEX network
  341. STORE SPACE(12) TO mfirst
  342. STORE SPACE(15) TO mlast
  343. STORE SPACE(20) TO mtitle
  344. STORE SPACE(30) TO mcompany
  345. STORE SPACE(30) TO maddress
  346. STORE SPACE(20) TO mcity
  347. STORE SPACE(2)  TO mstate
  348. STORE SPACE(10) TO mzip
  349. STORE SPACE(10) TO mphone
  350. STORE SPACE(1)  TO mpriority
  351. STORE SPACE(1)  TO mrefer
  352. STORE '  /  /  ' TO minitcont
  353. STORE '  /  /  ' TO mfollow1
  354. STORE '  /  /  ' TO mfollow2
  355. STORE SPACE(60) TO msituatn
  356. RETURN
  357.  
  358.  
  359. ***************
  360. PROCEDURE ntadd
  361. ***************
  362.  
  363. DO WHILE .T.
  364.    DO netadd
  365.    READ
  366.    STORE 'S' to mans
  367.    @24,15 SAY 'Save New Network Name ? (Save/Edit again/Cancel) 'GET mans PICTURE '!'
  368.    READ SAVE
  369.    DO WHILE .NOT. mans $ 'SEC'
  370.       ?? CHR(7)
  371.       READ SAVE
  372.    ENDDO
  373.    @24,0
  374.    CLEAR GETS
  375.    IF mans = 'E'
  376.       CLEAR
  377.       LOOP
  378.    ENDIF
  379.    IF mans = 'C'
  380.       CLEAR
  381.       RETURN
  382.    ELSE
  383.       @24,0
  384.       @24,20 SAY '*****  Updating Network File  *****'
  385.       APPEND BLANK
  386.       REPLACE first WITH mfirst, last WITH mlast, title WITH mtitle
  387.       REPLACE company WITH mcompany, address WITH maddress
  388.       REPLACE city WITH mcity, state WITH mstate, zip WITH mzip
  389.       REPLACE phone WITH mphone, priority WITH mpriority, reference WITH mrefer
  390.       REPLACE init_cont WITH CTOD(minitcont), followup1 WITH CTOD(mfollow1), followup2 WITH CTOD(mfollow2)
  391.       REPLACE situation WITH msituatn
  392.       DO memoadd
  393.       STORE 'Y' to mans
  394.       @24,0
  395.       @24,23 SAY 'Enter another record ? (Y/N) ' GET mans PICTURE '!'
  396.       READ SAVE
  397.       DO WHILE .NOT. mans $ 'YN'
  398.          ?? CHR(7)
  399.          READ SAVE
  400.       ENDDO
  401.       @24,0
  402.       CLEAR GETS
  403.       IF mans = 'Y'
  404.          CLEAR
  405.          DO netclear
  406.          LOOP
  407.       ELSE
  408.          RETURN
  409.       ENDIF
  410.    ENDIF
  411. ENDDO
  412.  
  413.  
  414. ****************
  415. PROCEDURE netadd
  416. ****************
  417.  
  418. @  2,  1  TO 22, 77    DOUBLE
  419. @  3, 28  SAY "Network Database"
  420. @  5,  5  SAY "First"
  421. @  5, 14  GET  mfirst PICTURE '!XXXXXXXXXXX'
  422. @  5, 32  SAY "Last"
  423. @  5, 38  GET  mlast PICTURE '!XXXXXXXXXXXXXX'
  424. @  7,  5  SAY "Title"
  425. @  7, 14  GET  mtitle PICTURE '!XXXXXXXXXXXXXXXXXXX'
  426. @  9,  5  SAY "Company"
  427. @  9, 14  GET  mcompany PICTURE '!XXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  428. @ 10,  5  SAY "Address"
  429. @ 10, 14  GET  maddress PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  430. @ 11,  5  SAY "City"
  431. @ 11, 14  GET  mcity PICTURE '!XXXXXXXXXXXXXXXXXXX'
  432. @ 11, 38  SAY "State"
  433. @ 11, 45  GET  mstate PICTURE "!!"
  434. @ 11, 51  SAY "Zip"
  435. @ 11, 56  GET  mzip PICTURE "XXXXXXXXXX"
  436. @ 13,  5  SAY "Phone"
  437. @ 13, 14  GET  mphone PICTURE "@R (999)999-9999"
  438. @ 13, 30  SAY "Priority"
  439. @ 13, 40  GET  mpriority PICTURE "!"
  440. @ 13, 42  SAY "(A, B or C)"
  441. @ 13, 56  SAY "Reference"
  442. @ 13, 67  GET  mrefer PICTURE "!"
  443. @ 13, 69  SAY "(Y, N)"
  444. @ 15,  5  SAY "Init_Cont"
  445. @ 15, 16  GET  minitcont PICTURE '99/99/99'
  446. @ 15, 28  SAY "Followup1"
  447. @ 15, 39  GET  mfollow1 PICTURE '99/99/99'
  448. @ 15, 51  SAY "Followup2"
  449. @ 15, 62  GET  mfollow2 PICTURE '99/99/99'
  450. @ 18,  5  SAY "Position"
  451. @ 18, 15  GET  msituatn PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  452. RETURN
  453.  
  454.  
  455. *******************
  456. PROCEDURE execclear
  457. *******************
  458.  
  459. PUBLIC mans, mname, maddr1, maddr2, mcity, mstate, mzip, mphone, mmrms
  460. PUBLIC mcontfst, mcontlst, msrjr, mtitle, minitcont, mfollow1, mfollow2
  461. PUBLIC mspec, mindus1, mindus2, mindus3, mindus4, mprosp, mfirmtp
  462. CLEAR
  463. IF type = 'E'
  464.    SELECT 3
  465.    USE execsrch INDEX execname
  466. ELSE
  467.    SELECT 4
  468.    USE tempsrch INDEX tempname
  469. ENDIF
  470. STORE ' ' TO mans
  471. STORE SPACE(45) TO mname
  472. STORE SPACE(30) TO maddr1
  473. STORE SPACE(30) TO maddr2
  474. STORE SPACE(20) TO mcity
  475. STORE SPACE(2)  TO mstate
  476. STORE SPACE(10) TO mzip
  477. STORE SPACE(10) TO mphone
  478. STORE SPACE(1)  TO mfirmtp
  479. STORE 'Mr.'     TO mmrms
  480. STORE SPACE(14) TO mcontfst
  481. STORE SPACE(14) TO mcontlst
  482. STORE SPACE(3)  TO msrjr
  483. STORE SPACE(20) TO mtitle
  484. STORE '  /  /  ' TO minitcont
  485. STORE '  /  /  ' TO mfollow1
  486. STORE '  /  /  ' TO mfollow2
  487. STORE SPACE(60) TO mspec
  488. STORE SPACE(4)  TO mindus1
  489. STORE SPACE(4)  TO mindus2
  490. STORE SPACE(4)  TO mindus3
  491. STORE SPACE(4)  TO mindus4
  492. STORE SPACE(1)  TO mprosp
  493. RETURN
  494.  
  495.  
  496. ***************
  497. PROCEDURE exadd
  498. ***************
  499.  
  500. DO WHILE .T.
  501.    DO execadd
  502.    READ
  503.    STORE 'S' to mans
  504.    IF type = 'E'
  505.       @24,12 SAY 'Save New Executive Search Firm ? (Save/Edit again/Cancel) 'GET mans PICTURE '!'
  506.    ELSE
  507.       @24,12 SAY 'Save New Temporary Search Firm ? (Save/Edit again/Cancel) 'GET mans PICTURE '!'
  508.    ENDIF
  509.    READ SAVE
  510.    DO WHILE .NOT. mans $ 'SEC'
  511.       ?? CHR(7)
  512.       READ SAVE
  513.    ENDDO
  514.    @24,0
  515.    CLEAR GETS
  516.    IF mans = 'E'
  517.       CLEAR
  518.       LOOP
  519.    ENDIF
  520.    IF mans = 'C'
  521.       CLEAR
  522.       RETURN
  523.    ELSE
  524.       @24,0
  525.       @24,23 SAY '*****  Updating Search Firm File  *****'
  526.       APPEND BLANK
  527.       REPLACE name WITH mname, address1 WITH maddr1, address2 WITH maddr2
  528.       REPLACE city WITH mcity, state WITH mstate, zip WITH mzip
  529.       REPLACE phone WITH mphone, mr_ms WITH mmrms, contfirst WITH mcontfst
  530.       REPLACE contlast WITH mcontlst, sr_jr WITH msrjr, title WITH mtitle
  531.       REPLACE init_cont WITH CTOD(minitcont), firm_type WITH mfirmtp
  532.       REPLACE followup1 WITH CTOD(mfollow1), followup2 WITH CTOD(mfollow2)
  533.       REPLACE specialty WITH mspec, indus1 WITH mindus1, indus2 WITH mindus2
  534.       REPLACE indus3 WITH mindus3, indus4 WITH mindus4, prospect WITH mprosp
  535.       DO memoadd
  536.       STORE 'Y' to mans
  537.       @24,0
  538.       @24,23 SAY 'Enter another record ? (Y/N) ' GET mans PICTURE '!'
  539.       READ SAVE
  540.       DO WHILE .NOT. mans $ 'YN'
  541.          ?? CHR(7)
  542.          READ SAVE
  543.       ENDDO
  544.       @24,0
  545.       CLEAR GETS
  546.       IF mans = 'Y'
  547.          CLEAR
  548.          DO execclear
  549.          LOOP
  550.       ELSE
  551.          RETURN
  552.       ENDIF
  553.    ENDIF
  554. ENDDO
  555.  
  556.  
  557. *****************
  558. PROCEDURE execadd
  559. *****************
  560.  
  561. @  1,  2  TO 22, 78 DOUBLE
  562. IF type = 'E'
  563.    @  2, 29  SAY "Executive Search Firm"
  564. ELSE
  565.    @  2, 29  SAY "Temporary Search Firm"
  566. ENDIF
  567. @  4,  4  SAY "Name"
  568. @  4, 15  GET  mname PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  569. @  6,  4  SAY "Address1"
  570. @  6, 15  GET  maddr1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  571. @  7,  4  SAY "Address2"
  572. @  7, 15  GET  maddr2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  573. @  8,  4  SAY "City"
  574. @  8, 15  GET  mcity PICTURE "!XXXXXXXXXXXXXXXXXXX"
  575. @  8, 39  SAY "State"
  576. @  8, 46  GET  mstate PICTURE "!!"
  577. @  8, 53  SAY "Zip"
  578. @  8, 58  GET  mzip PICTURE "XXXXXXXXXX"
  579. @ 10,  4  SAY "Phone"
  580. @ 10, 15  GET  mphone PICTURE "@R (999)999-9999"
  581. @ 10, 33  SAY "Retainer firm, Contingency or Both (R/C/B)"
  582. @ 10, 76  GET  mfirmtp PICTURE "!"
  583. @ 12, 14  SAY "Mr/Ms"
  584. @ 12, 20  SAY "First"
  585. @ 12, 36  SAY "Last"
  586. @ 12, 51  SAY "Sr/Jr"
  587. @ 12, 58  SAY "Title"
  588. @ 13,  4  SAY "Contact"
  589. @ 13, 15  GET  mmrms PICTURE "!XX"
  590. @ 13, 20  GET  mcontfst PICTURE "!XXXXXXXXXXXXX"
  591. @ 13, 36  GET  mcontlst PICTURE "!XXXXXXXXXXXXX"
  592. @ 13, 52  GET  msrjr PICTURE "!XX"
  593. @ 13, 57  GET  mtitle PICTURE "!XXXXXXXXXXXXXXXXXXX"
  594. @ 15,  4  SAY "Init Cont"
  595. @ 15, 15  GET  minitcont PICTURE "99/99/99"
  596. @ 15, 28  SAY "Followup1"
  597. @ 15, 39  GET  mfollow1 PICTURE "99/99/99"
  598. @ 15, 52  SAY "Followup2"
  599. @ 15, 63  GET  mfollow2 PICTURE "99/99/99"
  600. @ 17,  4  SAY "Specialty"
  601. @ 17, 15  GET  mspec PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  602. @ 19,  4  SAY "Industry 1"
  603. @ 19, 16  GET  mindus1
  604. @ 19, 23  SAY "Industry 2"
  605. @ 19, 35  GET  mindus2
  606. @ 19, 42  SAY "Industry 3"
  607. @ 19, 54  GET  mindus3
  608. @ 19, 61  SAY "Industry 4"
  609. @ 19, 73  GET  mindus4
  610. @ 21, 62  SAY "Job Prospect"
  611. @ 21, 76  GET  mprosp PICTURE "!"
  612. RETURN
  613.  
  614.  
  615. ******************
  616. PROCEDURE jobclear
  617. ******************
  618.  
  619. PUBLIC mans, mdate, mtype, mamount, mmiles, mdescrip
  620. CLEAR
  621. USE jobexpen INDEX jobexpen
  622. STORE ' ' TO mans
  623. STORE '  /  /  ' TO mdate
  624. STORE SPACE(1)   TO mtype
  625. STORE 0 TO mamount
  626. STORE 0 TO mmiles
  627. STORE SPACE(40)  TO mdescrip
  628. RETURN
  629.  
  630.  
  631. ***************
  632. PROCEDURE jbadd
  633. ***************
  634.  
  635. DO WHILE .T.
  636.    DO jobadd
  637.    READ
  638.    STORE 'S' to mans
  639.    @24,15 SAY 'Save Job Hunting Expense ? (Save/Edit again/Cancel) 'GET mans PICTURE '!'
  640.    READ SAVE
  641.    DO WHILE .NOT. mans $ 'SEC'
  642.       ?? CHR(7)
  643.       READ SAVE
  644.    ENDDO
  645.    @24,0
  646.    CLEAR GETS
  647.    IF mans = 'E'
  648.       CLEAR
  649.       LOOP
  650.    ENDIF
  651.    IF mans = 'C'
  652.       CLEAR
  653.       RETURN
  654.    ELSE
  655.       @24,0
  656.       @24,19 SAY '*****  Updating Job Hunting Expense File  *****'
  657.       APPEND BLANK
  658.       REPLACE date WITH CTOD(mdate), type WITH mtype, amount WITH mamount
  659.       REPLACE miles WITH mmiles, descript WITH mdescrip
  660.       STORE 'Y' to mans
  661.       @24,0
  662.       @24,23 SAY 'Enter another record ? (Y/N) ' GET mans PICTURE '!'
  663.       READ SAVE
  664.       DO WHILE .NOT. mans $ 'YN'
  665.          ?? CHR(7)
  666.          READ SAVE
  667.       ENDDO
  668.       @24,0
  669.       CLEAR GETS
  670.       IF mans = 'Y'
  671.          CLEAR
  672.          DO jobclear
  673.          LOOP
  674.       ELSE
  675.          RETURN
  676.       ENDIF
  677.    ENDIF
  678. ENDDO
  679.  
  680.  
  681. ****************
  682. PROCEDURE jobadd
  683. ****************
  684.  
  685. @  4,  1  TO 22, 77 DOUBLE
  686. @  5, 30  SAY "Job Hunting Expenses"
  687. @  7,  5  SAY "Date"
  688. @  7, 12  GET  mdate PICTURE "99/99/99"
  689. @  9, 16  SAY "Codes for the "+CHR(34)+"Type"+CHR(34)+" field:"
  690. @ 10,  5  SAY "Type"
  691. @ 10, 12  GET  mtype PICTURE "!"
  692. @ 10, 18  SAY "L = Lodging"
  693. @ 11, 18  SAY "M = Meals"
  694. @ 12, 18  SAY "A = Auto expenses (mileage, parking & tolls)"
  695. @ 13, 18  SAY "T = Transportation (Air, train, taxi, limo, etc.)"
  696. @ 14, 18  SAY "P = Postage & Stationery"
  697. @ 15, 18  SAY "O = All other"
  698. @ 17,  5  SAY "Amount"
  699. @ 17, 12  GET  mamount PICTURE "99999.99"
  700. @ 17, 40  SAY "Miles"
  701. @ 17, 47  GET  mmiles PICTURE "99999"
  702. @ 19,  5  SAY "Description"
  703. @ 19, 18  GET  mdescrip PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  704. RETURN
  705.  
  706.  
  707. *****************
  708. PROCEDURE memoadd
  709. *****************
  710.  
  711. STORE 'N' TO mans
  712. @ 24,0
  713. @ 24,20 SAY 'Enter Comments (memos) now ? (Y/N) ' GET mans PICTURE '!'
  714. READ SAVE
  715. DO WHILE .NOT. mans $ 'YN'
  716.    ?? CHR(7)
  717.    READ SAVE
  718. ENDDO
  719. @24,0
  720. CLEAR GETS
  721. IF mans = 'N'
  722.    RETURN
  723. ELSE
  724.    @ 1,1 GET comments
  725.    EDIT FIELDS comments
  726.    RETURN
  727. ENDIF
  728.  
  729.  
  730. *******************
  731. PROCEDURE duplicate
  732. *******************
  733.  
  734. IF type = 'N'
  735.    CLEAR
  736.    @ 10,5 SAY 'Duplicate record function is not valid for the Network database'
  737.    @ 15,5 SAY ' '
  738.    WAIT
  739.    RETURN
  740. ENDIF
  741. IF type = 'E'
  742.    CLEAR
  743.    @ 10,1 SAY 'Duplicate record function is not valid for the Executive Search database'
  744.    @ 15,5 SAY ' '
  745.    WAIT
  746.    RETURN
  747. ENDIF
  748. IF type = 'T'
  749.    CLEAR
  750.    @ 10,1 SAY 'Duplicate record function is not valid for the Temporary Placement database'
  751.    @ 15,5 SAY ' '
  752.    WAIT
  753.    RETURN
  754. ENDIF
  755.  
  756. STORE " " TO enter
  757. STORE 0 TO xsize, xemp
  758. CLEAR GETS
  759. CLEAR
  760. SELECT 1
  761. USE company INDEX division
  762. CLEAR
  763. SET FORMAT TO company
  764. DO WHILE .NOT. EOF()
  765.    @ 24,0
  766.    ACCEPT '         Enter the division to be duplicated or press [Esc] to quit:  ' TO div
  767.    ON ESCAPE DO stopret
  768.    SEEK UPPER(div)
  769.    IF FOUND()
  770.       DO DUPLIC
  771.       @ 23,0
  772.       WAIT SPACE(20)+'Duplicate this order?  <Y>es, <N>o, <Q>uit  ' TO enter
  773.       IF UPPER(enter) = 'Y'
  774.          xdiv    = division
  775.          xcomp   = company
  776.          xadd    = address
  777.          xcity   = city
  778.          xstate  = state
  779.          xzip    = zip
  780.          xphone  = phone
  781.          xsales  = sales
  782.          xempl   = employees
  783.          xsqft   = sq_ft
  784.          xacres  = acres
  785.          xestab  = establish
  786.          xduns   = duns
  787.          xsic1   = code1
  788.          xsic2   = code2
  789.          xsic3   = code3
  790.          xsic4   = code4
  791.          xprod   = product
  792.          xcont   = contact
  793.          xtitle  = title
  794.          xinit   = init_cont
  795.          xfu1    = followup1
  796.          xfu2    = followup2
  797.          xfu3    = followup3
  798.          xsource = source
  799.          xpros   = prospect
  800.          xstat   = status
  801.  
  802.          APPEND BLANK
  803.          REPLACE division   WITH xdiv
  804.          REPLACE company    WITH xcomp
  805.          REPLACE address    WITH xadd
  806.          REPLACE city       WITH xcity
  807.          REPLACE state      WITH xstate
  808.          REPLACE zip        WITH xzip
  809.          REPLACE phone      WITH xphone
  810.          REPLACE code1      WITH xsic1
  811.          REPLACE code2      WITH xsic2
  812.          REPLACE code3      WITH xsic3
  813.          REPLACE code4      WITH xsic4
  814.          REPLACE duns       WITH xduns
  815.          REPLACE sales      WITH xsales
  816.          REPLACE employees  WITH xempl
  817.          REPLACE sq_ft      WITH xsqft
  818.          REPLACE acres      WITH xacres
  819.          REPLACE establish  WITH xestab
  820.          REPLACE product    WITH xprod
  821.          REPLACE contact    WITH xcont
  822.          REPLACE title      WITH xtitle
  823.          REPLACE init_cont  WITH xinit
  824.          REPLACE followup1  WITH xfu1
  825.          REPLACE followup2  WITH xfu2
  826.          REPLACE followup3  WITH xfu3
  827.          REPLACE source     WITH xsource
  828.          REPLACE prospect   WITH xpros
  829.          REPLACE status     WITH xstat
  830.          EDIT
  831.          @ 24,0
  832.          WAIT
  833.          CLOSE FORMAT
  834.          RETURN
  835.       ENDIF
  836.       IF UPPER(enter) = 'N'
  837.          CLEAR
  838.          SKIP
  839.          LOOP
  840.       ENDIF
  841.       IF EOF()
  842.          ? 'No additional records found.'
  843.          WAIT
  844.          GO TOP
  845.          CLOSE FORMAT
  846.          RETURN
  847.       ENDIF
  848.       CLOSE FORMAT
  849.       RETURN
  850.    ENDIF
  851.    ?
  852.    ? 'This record is not in the file'
  853.    WAIT
  854.    GO TOP
  855.    LOOP
  856. ENDDO
  857. RETURN
  858.  
  859.  
  860. ****************
  861. PROCEDURE duplic
  862. ****************
  863.  
  864. CLEAR
  865. IF monitor = 'M'
  866.    SET COLOR TO &mono3
  867. ENDIF
  868. @  2,32 SAY "Company Prospect"
  869. @  4,4  SAY "Division"
  870. @  4,43 SAY "Company"
  871. @  5,4  SAY "Address"
  872. @  6,4  SAY "City"
  873. @  6,40 SAY "State"
  874. @  6,52 SAY "Zip"
  875. @  8,4  SAY "Phone"
  876. @  8,29 SAY "Division Sales"
  877. @  8,51 SAY "million"
  878. @  8,61 SAY "Employees"
  879. @ 10,4  SAY "Sq ft"
  880. @ 10,23 SAY "Acres"
  881. @ 10,35 SAY "Year Established"
  882. @ 10,59 SAY "DUNS #"
  883. @ 12,4  SAY "SIC Code1"
  884. @ 12,22 SAY "SIC Code2"
  885. @ 12,40 SAY "SIC Code3"
  886. @ 12,58 SAY "SIC Code4"
  887. @ 14,4  SAY "Product"
  888. @ 16,4  SAY "Contact"
  889. @ 16,42 SAY "Title"
  890. @ 18,4  SAY "Init Cont"
  891. @ 18,24 SAY "F-up-1"
  892. @ 18,41 SAY "F-up-2"
  893. @ 18,58 SAY "F-up-3"
  894. @ 20,4  SAY "Info Source"
  895. @ 20,43 SAY "Target Firm"
  896. @ 21,4  SAY "Prospect"
  897. @ 21,24 SAY "Status"
  898. IF monitor = 'C'
  899.    SET COLOR TO &mcolor2
  900. ELSE
  901.    SET COLOR TO &mono
  902. ENDIF
  903. @  4,14 SAY division PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  904. @  4,52 SAY company PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  905. @  5,14 SAY address PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  906. @  6,14 SAY city PICTURE "!XXXXXXXXXXXXXXXXXXX"
  907. @  6,47 SAY state PICTURE "!!"
  908. @  6,57 SAY zip PICTURE "99999X9999"
  909. @  8,14 SAY phone PICTURE "@R (999)999-9999"
  910. @  8,44 SAY sales PICTURE "9999.9"
  911. @  8,71 SAY employees PICTURE "999999"
  912. @ 10,13 SAY sq_ft PICTURE "999,999"
  913. @ 10,29 SAY acres PICTURE "999"
  914. @ 10,52 SAY establish PICTURE "9999"
  915. @ 10,66 SAY duns PICTURE "@R 99-999-9999"
  916. @ 12,15 SAY code1 PICTURE "9999"
  917. @ 12,33 SAY code2 PICTURE "9999"
  918. @ 12,51 SAY code3 PICTURE "9999"
  919. @ 12,69 SAY code4 PICTURE "9999"
  920. @ 14,12 SAY product PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  921. @ 16,14 SAY contact PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXX"
  922. @ 16,48 SAY title PICTURE "!XXXXXXXXXXXXXXXXXXXXXXXX"
  923. @ 18,14 SAY init_cont PICTURE '99/99/99'
  924. @ 18,31 SAY followup1  PICTURE '99/99/99'
  925. @ 18,48 SAY followup2  PICTURE '99/99/99'
  926. @ 18,65 SAY followup3  PICTURE '99/99/99'
  927. @ 20,16 SAY source PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  928. @ 20,56 SAY target PICTURE "!"
  929. @ 21,14 SAY prospect PICTURE "!XXXXXX"
  930. @ 21,32 SAY status PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  931.  
  932. IF monitor = 'C'
  933.    SET COLOR TO &mcolor
  934. ENDIF
  935. @ 1,1 TO 22,78 DOUBLE
  936. RETURN
  937.  
  938.  
  939. *****************
  940. PROCEDURE stopret
  941. *****************
  942.  
  943. CLOSE FORMAT
  944. * DO editdata
  945. RETURN TO MASTER
  946.  
  947.  
  948. *: EOF: JOBADD.PRG
  949.  
  950.